home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Advisor / CD-ROM Advisor.iso / blender / blen40m / shared.dir / 00794.ls < prev    next >
Encoding:
Text File  |  1994-08-22  |  917 b   |  48 lines
  1. on SETSPEAKER
  2.   global volume
  3.   if volume = 0 then
  4.     set the soundLevel to 0
  5.     updateStage()
  6.   end if
  7.   if volume = 1 then
  8.     set the soundLevel to 1
  9.     updateStage()
  10.   end if
  11.   if volume = 2 then
  12.     set the soundLevel to 2
  13.     updateStage()
  14.   end if
  15.   if volume = 3 then
  16.     set the soundLevel to 3
  17.     updateStage()
  18.   end if
  19.   if volume = 4 then
  20.     set the soundLevel to 4
  21.     updateStage()
  22.   end if
  23.   if volume = 5 then
  24.     set the soundLevel to 5
  25.     updateStage()
  26.   end if
  27.   if volume = 6 then
  28.     set the soundLevel to 6
  29.     updateStage()
  30.   end if
  31.   if volume = 7 then
  32.     set the soundLevel to 7
  33.     updateStage()
  34.   end if
  35. end
  36.  
  37. on TRAPDOOR
  38.   puppetSprite(46, 1)
  39.   set x to the locH of sprite 46
  40.   set Y to the locV of sprite 46
  41.   set x to x + 30 - random(35)
  42.   set Y to Y + 30 - random(35)
  43.   set x to x mod 640
  44.   set Y to Y mod 480
  45.   set the locH of sprite 46 to x
  46.   set the locV of sprite 46 to Y
  47. end
  48.